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BASIC 


IO FUNCIONES (l) 


ODAS las versiones 
BASIC de los distintos 
ordenadores permi- 
ten el manejo de di- 
versas funciones, tan- 
to las funciones es- 
tándar suministradas 
como las funciones 
definidas por el usuario. 

En este tomo vamos a comenzar por el 
estudio de las primeras, dejando las fun- 
ciones definidas para tomos posteriores. 

En primer lugar, debemos tener una 
idea del concepto de función. A grandes 
rasgos podríamos considerar una función 
como un pequeño programa dentro del 
programa que estemos desarrollando. 
Muchas veces es necesario hacer una 
operación determinada, como, por 
ejemplo, saber el número de caracteres 
que tiene una cadena o, simplemente, 
hacer la raíz cuadrada de un número. Es- 
tas y otras muchas operaciones se pue- 
den realizar mediante el uso de las fun- 
ciones que el BASIC pone a nuestra dis- 
posición. 

Por regla general todas las funciones 
tienen el siguiente formato: 


NOMBRE (argumento/s) 


donde NOMBRE es el nombre específico 
de cada función. Entre paréntesis van 
uno o varios argumentos (separados por 
comas) dependiendo de la función. 

Los argumentos pueden ser de carác- 
ter numérico o alftanumérico (constantes, 
variables o expresiones), según la fun- 
ción aplicada. 

Por otra parte, siempre que aplicamos 
una función sobre su(s) argumento(s) 


correspondiente(s) se produce un resul- 
tado que también pueder ser numérico o 
altanumérico. Atendiendo al tipo de re- 
sultado, podemos hacer la siguiente cla- 
sificación: 

FUNCIONES NUMERICAS: 


— Argumento numérico. 
— Argumento alfanumérico. 


FUNCIONES ALFANUMERICAS: 


— Argumento numérico. 
— Argumento alfanumérico. 


Vamos a comenzar con el estudio de- 
tallado de las principales funciones nu- 
méricas con argumento numérico, dejan- 
do el estudio de los demás tipos para to- 
mos sucesivos. Pero antes conviene ad- 
vertir que, dependiendo de cada fabri- 
cante, cada ordenador puede disponer 
de más o menos funciones. Pretender es- 
tudiarlas todas aquí sería una tarea prác- 
ticamente imposible, por tanto, para co- 
nocer todas las funciones disponibles en 
cada ordenador podemos consultar el 
manual correspondiente. 


m Funciones numéricas 
7 con argumento numérico 


Valor absoluto: ABS 
El formato general es el siguiente: 
ABS(N) 


Por tanto, acepta un solo argumento. El 
resultado es el valor absoluto de dicho 
argumento, es decir, su mismo valor, 
pero con signo positivo. 

Veamos algunos ejemplos, así como el 
resultado que aparecería en pantalla: 


Comando directo Resultado 
PRINT ABS(8*4-6/2) 29 
PRINT ABS(3-6*4+5) 16 
LET A=-69:PRINT ABS(A) 69 


Conversión a entero: CINT 
El formato general es el siguiente: 
CINT(N) 


Admite un único formato y devuelve un 
número entero como resultado del re- 
dondeo. 

Veamos algunos ejemplos: 


Comando directo Resultado 
PRINT CINT(18.725) 19 
PRINT CINT(10/3-5*2) -7 
LET A=CINT(-28.3):PRINT A -28 


Parte entera: INT 


El formato general es el siguiente: 
INT(N) 
Utiliza un solo argumento y devuelve el 
número entero de valor inferior más próxi- 
mo. 


Por ejemplo: 

Comando directo Resultado 
PRINT INT(68.925) 68 
PRINT INT(5/3-2*4) -7 
LET A=-2.8:PRINT INT(A) -3 


Sin decimales: FIX 


El formato general es: 
FIX(N) 
Acepta un único argumento. Devuelve el 
valor entero del argumento desprecian- 
do los decimales y sin redondear. 
Veamos algunos ejemplos: 


Comando directo Resultado 
PRINT FIX(- 18.9) -18 
PRINT FIX(20/3) 6 
LET A=FIX(21/10+2):PRINT A 4 


Redondeo: ROUND 


El formato general es el siguiente: 
ROUND(N,M) 


Por tanto, admite dos argumentos nu- 
méricos. El primero, N, es un número real 
cualquiera, mientras que el segundo, M, 
indica el número de decimales que de- 
seamos en el redondeo de N. Este segun- 
do argumento se puede omitir, en cuyo 
caso ROUND funcionará exactamente 
igual que CINT. 


Veamos algunos ejemplos: 


Comando directo Resultado 
PRINT ROUND(8.2374,2) 8.24 
PRINT ROUND(-2*3.14159,4) -6.2832 
LET A=5.82918:PRINT 
ROUND(A, 3) 5.829 


Signo: SGN 
El formato es el siguiente: 
SGN(N) 


Acepta un solo argumento. El resultado 
es 1 si el argumento es positivo, O si es O, 
y -1 si es negativo. 

Por ejemplo: 


Comando directo Resultado 
PRINT SGN(105.82) 1 
PRINT SGN(6*4-8*3) 0 
LET A=SGN(-7):PRINT A -] 


Raiz cuadrada: SAR 
El formato es: 
SQR(N) 


Devuelve la raíz cuadrada del argumen- 
to que, lógicamente, debe ser positivo, 
ya que el ordenador no maneja números 
complejos. 

Veamos algunos ejemplos: 


Comando directo Resultado 


PRINT SQR(25) 5 
PRINT SQR(47 2+3*8) 6.3245553 
LET A=107.5:PRINT SQR(A)  10.36822 


Exponencial: EXP 
El formato general es el siguiente: 
EXP(N) 


Admite un argumento numérico de cual- 
quier tipo y devuelve el resultado de ele- 
var el número e al argumento indicado. 
El número e es un número irracional, 
cuyo valor redondeado a cuatro deci- 
males es 2.7182. 
Veamos algunos ejemplos: 


Comando directo Resultado 
PRINT EXP(1) 2.71828183 
PRINT EXP(3-5) 0, 13833528 


LET A=EXP(0):PRINT A 1 


Logaritmo: LOG 


Esta función es la inversa de EXP. Su for- 
mato es el siguiente: 


LOG(N) 


Basi 


El argumento es numérico, pero siempre 
debe ser positivo. El resultado es el loga- 
ritmo natural o neperiano, es decir, en 
base e, del argumento. 

Por ejemplo: 


Comando directo Resultado 
PRINT LOG(EXP(1)) 1 
PRINT LOG(8-2*3) 0.69314718 
LET A=1:PRINT LOG(A) 0 


Funciones trigonométricas 


La mayoría de los ordenadores incor- 
poran en sus versiones de BASIC las si- 
guientes funciones trigonométricas: 


Función Formato 
Seno SIN(N) 
Coseno COS(N) 
Tangente TAN(N) 
Arcotangente ATN(N) 
Arcoseno ASN(N) 
Arcocoseno ACS(N) 


El argumento indica el ángulo en radia- 
nes. Recordemos que: 


1 RADIAN = 180/Pl GRADOS 
SEXAGESIMALES 


por tanto, si manejamos grados sexage- 
simales tendremos que hacer una con- 
versión a radianes. 

Muchos ordenadores disponen de la 
función Pl, que devuelve el valor de este 
número irracional. Si nuestro ordenador 
no dispusiera de Pl, tendríamos que intro- 
ducir previamente su valor (3.141592...) 
en forma de constante, o bien asignán- 
dolo previamente a una variable numéri- 
ca. 


Memoria libre: FRE 
El formato es el siguiente: 

FRE(N) 
Admite un argumento de cualquier tipo, 
incluso alftanumeérico, que se denomina 
«Argumento mudo», ya que, aunque es 
necesario, su valor no está relacionado 
con el resultado. Devuelve el espacio li- 


bre que queda en la memoria del orde- 
nador. 


Números aleatorios: RND y 
RANDOMIZE 


El formato general es el siguiente: 
RND(N) 


aunque en algunos ordenadores no es 
necesario especificar argumento alguno. 

La función RND tiene por objeto la ge- 
neración de números aleatorios; por tan- 
to, se emplea mucho en el diseño de pro- 
gramas de juegos donde interviene a 
menudo el azar. 

En la mayoría de los ordenadores, 
como AMSTRAD, IBM o MSX, el efecto es 
distinto, dependiendo del signo del argu- 
mento. 


— Cuando el argumento es positivo, 
devuelve un número aleatorio compren- 
dido entre 0 y 1, pero teniendo en cuen- 
ta que el 0 está incluido en el intervalo 
de posibilidades, mientras que el 1 no. 


— Cuando el argumento es cero de- 
vuelve el último aleatorio generado. 


— Cuando el argumento es negativo 
devuelve el número aleatorio, que es 
siempre el mismo para cada valor del ar- 
gumento. Además, se inicializa de nuevo 
en memoria la secuencia de números al 
azar. 


En el Commodore la función RND de- 
vuelve unos resultados similares a los ex- 
plicados, aunque en el caso de que el 
argumento sea 0 el efecto será el mismo 
que si fuera positivo. 

De cualquier forma, normalmente se 
utilizan argumentos positivos. 

En el caso del SPECTRUM la función RND 
no utiliza argumento de ningún tipo y su 
misión es generar un número al azar en- 
tre 0 y 1. 

En muchos ordenadores la función RND 
se suele utilizar en combinación con RAN- 
DOMIZE, que permite elegir el punto en el 
que se inicia la secuencia de números 
aleatorios. Su formato general es el si- 
guiente: 

RANDOMIZE(N) 


El efecto más aleatorio se consigue 
cuando el inicio de la secuencia está en 
función del tiempo que lleva encendido 
el ordenador. Esto se consigue con: 


RANDOMIZE TIME en el AMSTRAD 
RANDOMIZE TIMER en el IBM 
RANDOMIZE O en el SPECTRUM 


Los MSX no disponen de la función RAN- 
DOMIZE, sin embargo, podemos conse- 
guir un efecto parecido utilizando para 
RND el siguiente formato: 


RND(-TIME) 


El COMMODORE no dispone de RANDO- 
MIZE. 
Veamos un ejemplo. El programa 1 si- 


mula el lanzamiento de un dado por el 
ordenador. Además, nos permite apostar 
a un número. 


60 CLS 


110 PRINT :¿PRINT 


IF R$<>"N" 


En la línea 90 se simula perfectamente 
el dado, puesto que se genera al azar un 
número entero (función INT) comprendi- 
do entre 1 y 6, ya que la función RND va 
multiplicada por 6 (el resultado estaría 
entre 0 y 5) y después se suma 1 al nú- 
mero obtenido. 

Recordemos que en el SPECTRUM ha- 
bría que suprimir el argumento de RND y 
que la función RANDOMIZE varía de unos 
ordenadores a otros (en algunos casos 
habrá que suprimirla). 

En la figura 1 podemos ver el aspecto 
de la pantalla tras una ejecución. 

El programa 2 es un pequeño juego. El 
ordenador selecciona un número al azar 
entre 1 y 100 y el usuario tiene que acer- 


REM AER AA RR RAR 
REM * ADIVINAR UN NUMERO xx 
REM XXXL EEE ER ER RRA 
CLS 
RANDOMIZE TIMER 
LET N=INTC(RND(1)*100>+1 
LET C=0 

"DIME UN NUMERO ";¿R 


REM ARALAR RRA 


20 REM x DADO Me 
30 REM ARAHAL RR 
40 CLS 


50 INPUT "¿ A QUE NUMERO APUESTAS ?"¿N 


70 IF N<1 OR N>á THEN GOTO 50 
80 RANDOMIZE TIMER 

0 LET DADO=INT(RNDC(1)*6>)+1 
100 PRINT "RESULTADO: " ,DADO 


120 IF DADO=N THEN PRINT "¡ ACERTASTE '! 
HAS GANADO" :GOTO 140 

130 PRINT "APOSTASTE AL "¿N;". 

140 PRINT :¿PRINT :¿PRINT 

150 INPUT "¿ QUIERES VOLVER A JUGAR ?";R$ 

160 IF R$="S" OR R$="s" THEN GOTO 40 

AND R$<>"n" 


HAS PERDIDO" 


THEN GOTO 150 


RESULTADO : 5 


APOSTASTE AL 2 . HAS PERDIDO 


¿ QUIERES VOLVER A JUGAR ? 


Presentación en pantalla del programa 1. 


tarlo. Para ello el ordenador le ayuda 
con algunas pistas. 


IF R<1 OR R>100 THEN PRINT "MI NUMERO ESTA ENTRE 1 Y 100":GOTO 80 
IF R<>INTCR> THEN PRINT "MI NUMERO ES ENTERO" :GOTO 80 
IF N>R THEN PRINT "MI NUMERO ES MAYOR" :GOTO 80 


. BASIC 


140 IF N<R THEN PRINT 


160 PRINT ¿PRINT ¿PRINT 


En la línea 60 se genera el número 
aleatorio entre 1 y 100. Para ello se sigue 
el mismo proceso que en el programa 
anterior. 

En la línea 70 se establece un contador 
para contabilizar el número de intentos 
hasta acertar el número. 

La condición de la línea 120 sirve para 
advertirnmos, cuando respondamos un nú- 
mero decimal, que el ordenador ha 
«pensado» un número entero. 

Las demás condiciones están bastante 
claras. Todas tienen por objeto dar algu- 
na pista sobre el número que hay que 
adivinar. Una vez que acertemos el nú- 
mero aparecerá una pantalla similar a la 
de la figura 2. 


e eN ¡ ACERTASTE ! ERA EL NUMERO... 11 


| Has HECHO 7 INTENTOS 
Ok 


Presentación en pantalla del programa 2. 


"MI NUMERO ES MENOR" :GOTO 80 
150 PRINT "¡ ACERTASTE ! ERA EL NUMERO..."¿N 


170 PRINT "HAS HECHO ";C;" INTENTOS" 


Para finalizar, en la figura 3 podemos 
ver una tabla con las principales funcio- 
nes numéricas de argumento numérico 
disponibles en cada ordenador. 


Tabla-resumen de funciones numéricas 
(argumento numérico). 


MAQUINA 2-80 


SPECTRUM, AMSTRAD, MSX 


(1 Instrucciones 


de salto 


y otras de interés 


RATAREMOS en este 
apartado, en primer 
lugar, de las instruc- 
ciones que se refie- 
ren al cambio en la 
secuencia normal de 
ejecución, en el lenguaje máquina del 


7-80. Luego hablaremos de otras instruc- 
ciones de uso general. 


En las instrucciones de salto podemos 
diferenciar dos tipos, las que se refieren 
a salto a subrutina, de las que ya trata- 
mos al hablar del stack; y las de salto pro- 
piamente dichas. De estas últimas nos 
ocuparemos ahora. Para ello describire- 
mos brevemente cada una de ellas (ver 
figura 1). 


Grupo de salto 


Indicadores 
SZ H P/VNC 


Código 
mmnemotécnico | Operación simbólica 


PC-nn 


Si la condición cc es 
cierta, PC—nn; si 
no, se continua 


JRe PC=-PC+e 


JR Cje Si C=0, se continúa 


Si C=1, PC-PC+e 
Si C=1, se continúa 


JR NC,e 


Si C=0, PC-PC+e 
Si Z=0, se continúa 


JRZ,e 


Si Z=1, PC-PC+e 
Si Z=1, se continúa 


JR NZ.e 


Si Z=0, PC»-PC+c 
PC-HL 
PC-IX 


JP (HL) 
JP (1X) 


JP (11) PC=1Y 


B--B-1 
Si H - 60, se continúa 
Si Bx0, PC—PC+e 


DINZ, e 


Códigos N.” de 
76 543 210 Mex estados T | Comentarios 
10 


11 000 011 C3 3 


11 011 101 DD 
11 101 00] E9 
11 111 101 FD 
11 101 001 EY 
00 010 060 10 
-e-2= 


000 — NZ no ceru 


010. NC no arrastre 
011 € arrastre 

100 PO paridad impar 
101 PLE paridad par 
110 P signo positivo 
111 “M signo negativo 


Si no se cumple la 
condición 

Si se cumple ¡a condición 
Si na se cumple la 
condición 

Si se cumple la condición 


Si no se cumple la 
condición 

Si se cumple la condición 
Si no se cumple la 
condición 

Si se cumple la condición 


NOTAS: e es la magnitud del salto relativo; es un número con signo del intervalo -126...129. en el código figura e-2 
para provocar un salto de magnitud e, ya que PC se incrementa en 2 antes de sumarle el desplazamiento. 
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— En primer lugar, tenemos la instruc- 
ción JPnn. Su función es directa. Simple- 
mente produce un salto incondicional a 
la posición de memoria referida como 
nn. Por ejemplo: JP $A00O, transferirá el 
control a la instrucción que comienza en 
la dirección hexadecimal A00O. 


— La instrucción del tipo JP cc,nn 
transferira el control a nn si se cumple la 
condición cc. 


4 BYTE 


2 BYTES 


Si no se 
cumple CC 
continúa 


CC puede ser cualquiera de los valo- 
res NZ, Z, NC, C, PO, P y M. Estas letras sig- 
nifican por el mismo orden las siguientes 
condiciones: «distinto a cero», «igual a 
cero», «el acarreo es nulo», «el acarreo 
no es nulo», «la paridad es impar», «la pa- 
ridad es par», «el signo es positivo», y «el 
signo es negativo». 

Por supuesto, todas estas condiciones 
se refieren al contenido del acumulador 
y coinciden con el estado de los flags (o 
banderas) del registro F. 


— La instrucción JR e, produce un sal- 
to incondicional, como la instrucción JP, 
pero relativo, e posiciones. Esto quiere 
decir que la ejecución continuará e po- 
siciones más allá que en la que se en- 
cuentra la instrucción JR. e es un número 
en el intervalo - 126... 129 (entero, por su- 
puesto). 


— La instrucción JRC,e produce el mis- 
mo efecto que la anterior, pero sólo 
cuando se cumple la condición C, es de- 
cir, cuando el contenido del acarreo no 
es nulo. En caso contrario, cuando el 
acarreo es igual a cero, la instrucción se 
ignora, y la ejecución continúa en la si- 
guiente instrucción. 


— La instrucción JR NC.e tiene el mis- 
mo efecto que la anterior, pero con la 
condición inversa (carry = cero). 


— Las instrucciones JR Z,e y JR NZ,e tie- 
nen un funcionamiento similar a las ante- 
riores, pero con las condiciones Z (igual 
a cero) y NZ (distinto de cero). 


— Las instrucciones JP (HL), JP (IX) y 
JP (IY) provocan un salto indirecto con la 
dirección entre paréntesis. Esto supone 
que la ejecución continuará en la posi- 
ción de memoria cuya dirección se en- 
cuentre en los registros de 16 bits entre 
paréntesis. 

Por ejemplo, si el contenido de HL es 
SOIFA, la instrucción JP (HL) será equiva- 
lente a JP $04FA. 


— Por último, hablemos de la instruc- 
ción DJNZ,e. Esta instrucción está espe- 
cialmente indicada para la realización 
de bucles en máquina, realizando varias 
acciones simultáneamente: 


Cada vez que la instrucción sea ejecu- 
tada, el contenido del registro B se de- 
crementa en 1 (lógicamente, debemos 
poner en B la variable de control del bu- 
cle). Una vez hecho esto, la misma ins- 
trucción comprueba el contenido de Bi si 
éste es cero (fin del bucle), la ejecución 
continúa en la posición siguiente. En 
caso contrario (B<>0), se produce un 
salto relativo de e posiciones. 

Como ya explicamos anteriormente, el 
salto relativo de e posiciones provoca 
que la ejecución continúe en la posición 
actual +e. 

Veamos el uso de esta instrucción con 
un ejemplo. 


LD B, $04 
PEPE LD A, $3F 
Bucle _, 

DJNZ, PEPE 

NOP 


1.2 Cargamos en el registro B del núme- 
ro 4 (con lo que pretendemos que el bu- 
cle se repita cuatro veces). 


2.- Se ejecuta el bucle, y al llegar a la 
instrucción DJNZ, ésta hace B = 3 (al de- 
crementar) y provoca un salto relativo a 
la dirección PEPE. 


3." El bucle se repetirá, y cuando se 
ejecute DJINZyB=0 fla ejecución conti- 
nuará en la instrucción NOP). 

Por último, describiremos las instruccio- 


nes varias. Son todas aquellas instruccio- 
nes que por su función específica no se 
pueden incluir en ninguno de los grupos 
anteriores (ver figura 3). 


Grupo de salto 
Grupo de instrucciones varias 


Código nde n."de  n.* de 
Operación simbólica Indicadores Códigos bytes ciclos Mestados 


No operación 
Detiene el Z80 
IFF-—0 
IFF-—1 


Selecciona modo 0 para las 
interrupciones 

Selecciona modo 1 para las 
interrupciones 

Selecciona modo 2 para las 
interrupciones 


NOTAS: (1) BCD: decimal codificado en binario. 


Xx AAA 
Xx Xx ES 


IFF representa la báscula de habilitación de interrupciones. 


CY representa el indicador de arrastre. 


* indica que las interrupciones no son examinadas al final de DI o EL. 


BUCLE 


BUCLE DE RETARDO 2 + 4 x (1 + 1 + 3) = 22/F=T 
T = RETARDO F = FRECUENCIA DEL RELOJ/3 


— La instrucción NOP es una instruc- 
ción que no realiza ninguna operación. 
Puede parecer a simple vista inútil, pero 
ocupa 1 byte y pierde tiempo al ejecu- 


tarse, lo cual puede ser útil en activida- 
des de temporización, etc. 

— La instrucción HALT detiene al 2-80. 
Es una instrucción de interés para el hard- 
ware, ya que detiene fisicamente al mi- 
croprocesador, el cual se pone en alta 
impedancia dejando los buses libres 
para que los utilicen otros dispositivos. 
Sólo se puede abandonar este estado de 
«hibernación» con una interrupción. 

— La instrucción DI desactiva, es de- 
cir, inhibe las interrupciones mascara- 
bles. La instrucción El realiza la operación 
opuesta. 

— Las instrucciones IMO, IM] e IM2 se- 
leccionan los tipos de interrupción mas- 
carables 0, 1 y 2, respectivamente. 

Estos tipos de interrupción y los demás 
serán tratados con mayor detalle en un 
apartado posterior. 


m Programa: 
Masterword 


para AMSTRAD 


L programa que va- 
mos a ver a continua- 
ción es una variación 
del famoso MASTER 
MIND numérico, pero 
con palabras. Este 
programa tiene su 
propio diccionario 
de palabras de siete letras y con él será 
con el que juguemos. 


DICCIONARIO DE PALABRAS 


ENEMIGO — ZAPADOR — RES VANADIO 
BASALTO — OPINION 5 PALURDO 
TRUNCAR — TERMINA GASEOSO TITANIC 


CULTURA — JUICIOS COCERAS — COGERAS 
RENEROS — DIVIDES REGALOS — RETARIA 
ALBERTO — AMANTES DEMORAR — ACALLAR 
TERNERA — FRANCES LITORAL TRATARE: 


lA Estas son las palabras que podemos usar en 
el juego. 


El juego consiste en adivinar la palabra 
que ha pensado el ordenador. Por su- 
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puesto, dicha palabra será una de las 
del diccionario. 

El jugador tiene que adivinar dicha pa- 
labra en un máximo de diez intentos. En 
caso de que no lo haga, el ordenador le 
dirá cuál era la palabra que había pen- 


lA El tablero de juego. 


Cada vez que el jugador realice una ju- 
gada, el ordenador le dirá cuántas letras 
de la palabra que ha introducido están 
bien colocadas y cuántas letras, aun no 
estando bien colocadas existen en la pa- 
labra. A las primeras letras, las que están 
colocadas en el mismo lugar que en la 
palabra que ha pensado el ordenador, 
las llamaremos MUERTOS. Las letras que, 
existiendo en la palabra a adivinar, el ju- 
gador las ha colocado en posiciones dis- 
tintas, las llamaremos HERIDOS. 


[A En medio de una partida. 


Cuando termina el juego, ganes o pier- 
das, el ordenador te dirá qué tanto por 


10 TS 
MASTERMVORD AKk 
30 Xxx Un programa realizado xxx 
40 e. Por Kxkk 
50 X*xx*x Carlos A. Maria Morin xxx 
60 KK xk Ak 
(C> Ediciones KK 
80 REM xxx Siglo Cultural 1987 xx*Xx*x 
90 REM a+RSSS SS SS” OSOS l”lOOlO lolo OOO 


20 Xxx 


70 Xxkxk 


100 REM 

110 MODE O 

120 LOCATE 1,13 

130 PRINT"'MASTERVOR D” 
140 FOR re=1 TO 3000 

150 NEXT 

160 MODE 2 

170 CLEAR: CLS 

180 REM 


ciento de aciertos has tenido y te pre- 
guntara si quieres volver a jugar. 


[Intento | Introduce palabra de ? letras Heridos Y Muertos 
MITO 
ome E IFA 00 


M:200X 


h: 
LLO CONSEGUISTES!! 


190 REM ARSS SS SSA SAS lE Sl? 


200 REM *x*k PREPARA DICCIONARIO DE PALABRAS xx 
A LES 


220 REM 

,/230 GOSUB 1600 

240 LOCATE 29,3 á 
250 PRINT"DICCIONARIO DE PALABRAS” 
260 LOCATE 29,4 

270 

280 RESTORE 2070 

290 FOR y=7 TO 20 STEP 2 

300 t-3 

310 FOR x=1 TO 8 

320 READ h$ 

330 LOCATE f,y 

340 PRINT h$;. 

350 f=f+10 

360 NEXT 

370 NEXT 
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380 LOCATE 32,22 

390 PRINT CHR$(24>'” PULSA UNA TECLA '"CHR$(24> 
400 CALL £BB06: REM ESPERA QUE SE PULSE UNA TECLA 
410 CLS 

420 GOSUB 1600:* PREPARA VENTANA PRINCIPAL 
430 GOSUB 1330: PREPARA VENTANA PRINCIPAL 
440 REM 

450 REM ARSS RSSOIOROIOOOOMESOO OOOO OOOO OOOOIOOOK 
460 REM *x*x ELIGE PALABRA EN MODO ALEATORIO xx 
470 REM ARSSORSORSIOOIOSOROORSOOORSOOOOOOOOOOOOJOROJOKOJOK 
480 REM 

490 RANDOMIZE TIME 

500 RESTORE 2070 

510 FOR bu=1 TO INT(RNDA57> 

520 READ h$ 

530 NEXT 

540 REM 

550 REM ARSS SOS ESOO] SlSO Ej jO”lS OSOS SOS lOJOJOK 
560 REM adooiolook*x PROGRAMA PRINCIPAL adMOOOOOOOK 
570 REM AMRSRSRS OSOS SS jSS ESOS lO ESOS” lOlOlOlOjOJOK 
580 REM 

590 LOCATE 2,3 

600 PRINT” Intento” 

610 LOCATE 13,3 

620 PRINT" Introduce palabra de 7 letras” 

630 LOCATE 48,3 

640 PRINT"Heridos 2S Muertos” 

650 au=3 

660 FOR i=1 TO 10 

670 1=0:g=0 

680 au=au+2 

690 LOCATE 4,au 

700 PRINT i 

710 LOCATE 13,au 

720 INPUT "TU TURNO:”,as$ 

730 as=UPPER$(as$)> 

740 IF LEN(a$><7 OR LEN(a$>)>7 THEN SOUND 1,100,10,15:GOTO 690 
750 FOR bul=1 TO 7 

760 g$=MIDS(a$, bul, 1> 

770 d$=MIDS(h$, bul, 1> 

780 in(bul>=ASC(gS> 

790 re(bul>=ASC(d$) 

800 NEXT 

810 FOR bul=1 TO 7 

820 IF in(bul>»=re(bul>» THEN 1=1+1:GOSUB 1860 
830 NEXT 

840 FOR bul=1 TO 7 

850 in0=in(bul> 

860 GOSUB 1970 

870 NEXT 

880 gs="” 

890 FOR ga=1 TO g 

900 g$=g8+”0"” 

910 NEXT 

920 1$="” 

930 FOR ga=1 TO 1 

940 1$=1$+"X” 

950 NEXT 

960 LOCATE 48,au 

970 PRINT ”H:”gS$ 

980 LOCATE 68,au 

990 PRINT ”M:”1S 

1000 IF 1=7 THEN GOTO 1160 

1010 NEXT 

1020 REM 

1030 REM AMES OSOS? ESOO SOS] OOOOIOJOJOK 
1040 REM *xxx* MENSAJES DE GANADOR/PERDEDOR xxkoxkxk 
MATI LIDAD ICIDICICIDICICIDICICIDICICIES 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


REM 

FOR y=10 TO 16 

LOCATE 25, y 

PRINT” ” 
NEXT 

LOCATE 30,10 

PRINT” NO LO CONSEGUISTES” 

LOCATE 26,13 

PRINT" LA PALABRA ES:  ”;h$ 

GOTO 1260 

FOR y=10 TO 16 

LOCATE 25, y 

PRINT” ” 
NEXT 

LOCATE 30,10 

PRINT"!!LO CONSEGUISTES! !” 

LOCATE 30,12 

PRINT"Y EN SOLO”; 1;” INTENTOS.” 

LOCATE 26,14 

PRINT"HAS TENIDO EL”;1x10;”% DE FALLOS” 
LOCATE 25,16 

PRINT”JQUIERES JUGAR DE NUEVO? (S/N)>” 
s$=UPPERS ( INKEYS> 

IF s$<>”S” AND s$<>”N'” THEN GOTO 1280 
IF s$="S” THEN GOTO 170 

CLS 

END 

REM 

REM aaa lll 
REM xx SUBRUTINA PARA DIBUJAR VENTANA Xx 
REM ol SIRVO 


REM 
FOR y=4 TO 23 STEP 2 
LOCATE 1,y 


PRINT CHR$(151)>; 
FOR x=1 TO 78 
PRINT CHR$(154>; 


NEXT 

PRINT CHR$(157> 

NEXT 

va=34 

FOR x=10 TO 74 STEP va 
LOCATE x,2 


PRINT CHR$(158> 
FOR y=3 TO 23 
LOCATE x, y 

IF (y MOD 2><>0 THEN PRINT CHR$(149) ELSE PRINT CHR$(159)> 
va=27 

NEXT 

LOCATE x,y 
PRINT CHR$(155)> 
NEXT 

RETURN 

REM 

REM xAxkkxkxxk SEGUNDA SUBRUTINA Axkdookk 
REM 

LOCATE 1,2 
PRINT CHR$(150); 
FOR x=2 TO 79 
PRINT CHR$(154)>); 
NEXT 

PRINT CHR$(156) 
FOR y=3 TO 24 
LOCATE 1,y 
PRINT CHR$(149); 
LOCATE 80, y 
PRINT CHR$(149> 
NEXT 
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1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 


LOCATE 1,24 

PRINT CHR$(147»>; 

FOR x=2 TO 79 

PRINT CHR$(154); 

NEXT 

PRINT CHR$(153) 

RETURN 

REM 
IRIS 
REM * SUBRUTINAS DEL PROGRAMA PRINCIPAL x 
REM SSA lll lVRSIOIJOK 


1850 REM 

1860 in0=in(bul> 
1870 re0=re(bul) 
1880 GOSUB 1920 
1890 in(bul>=in0 
1900 re(bul>=re0 
1910 RETURN 

1920 tr=tr+1 
1930 in0=400+tr 
1940 tr=tr+1 
1950 re0=400+tr 
1960 RETURN 

1970 FOR bu2=1 TO 7 


1980 IF in0<>re(bu2> THEN GOTO 2020 


1990 tr=tr+1 

2000 g=8+1 

2010 re(bu2>=400+tr 
2020 NEXT 

2030 RETURN 

2040 REM 


2050 REM *XxXxXxxx* DATAS DE PALABRAS AxoookKkxk 


2060 REM 


2070 DATA ENEMIGO, ZAPADOR, RESCATE, LETARGO, PERMUTA, VANADIO, POLICIA, PALABRA 
2080 DATA BASALTO, OPINION, FARMACO, ESTUDIO, COMPARA, PALURDO, TIROIDE, KRIPTON 
2090 DATA TRUNCAR, TERMINA, FORTRAN, HERMOSO, GASEOSO, TITANIC, TRASERO, CERCANO 
2100 DATA CULTURA, JUICIOS, REMORAS, FAMOSAS, COCERAS, COGERAS, EMIGRAS, PASOTAS 
2110 DATA REMEROS, DIVIDES, ESTADOS, TRONCOS, REGALOS, RETARIA, TANQUES, PIENSAS 
2120 DATA ALBERTO, AMANTES, RETRASO, AMARGAR, DEMORAR, ACALLAR, TUMULTO, FRASEAR 
21309 DATA TERNERA, FRANCES, LITORAL, AMARGOS, EMPAQUE, TRATARE, TERMINA, ZAPATOS 


Programa: Lector de Morse 
para Spectrum 


[E 


Con este pequeño programa podre- 
mos aprender Morse de una forma rápi- 
da y muy sencilla. El programa nos per- 
mite meter texto con letras y nos lo pasa 


a líneas de puntos. También nos deja en- 
trar directamente código Morse y nos lo 
traduce para que veamos si lo hemos es- 
crito bien. Como es lógico, y para que 
vayamos cogiendo la práctica necesa- 
ria, tenemos una opción del menú gene- 
ral para practicar con el teclado e ir ga- 
nando velocidad. 


* CODIFICADOR DE MORSE * 


E THTER OOO TE 


B- INTRODUCIR CLAVES 


S-TEST CE TECLADO 


VOZIFACHIONMONODND Cn 
+ NÍXLTCCANDO - 
UU n unn 


lA ] Pantalla que aparece cuando queremos 
ll Menú general del programa. (A Introducir código Morse. 


MOSSOS lalalala lalalala lO IOIOIOJOJOJÓK: 
xok LECTOR DE MORSE *x*x 
EEES 


*x*k POR CARLOS DORAL *xkx 
FOSO lalalala lll IOIOIOIOJOJO NOK 


DIM c$(28, 6) 
FOR f=1 TO 26 
READ c$(f) 


NEXT 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


L, 

CLAVES DE LAS LETRAS 
"130000" 
"311100" 
"313100" 
"311000" 
"100000" 
"113100" 
"331000" 
"111100" 
"110000" 
"133300" 
"313000" 
"131100" 
"330000" 
"310000" 
"333000" 
"133100" 
"331300" 
"131000" 
"111000" 
"300000" 
"113000" 
"111300" 
"133000" 
"311300" 
"313300" 
"331100" 
"131313" 
"113311" 
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390 LET co=1 

400 CLS 

410 PRINT AT 0,3; FLASH 1;" * CODIFICADOR DE MORSE * ” 
420 PRINT AT 4,7;"1-INTRODUCIR TEXTO" 

430 PRINT AT 7,7;"2-INTRODUCIR CLAVES" 

440 PRINT AT 10,7;"3-TEST DE TECLADO" 

450 LET we=100+(cox*10) 

455 RESTORE we 

460 LET a$=c$(co) 

470 LET rn=INT (RNDx5)+1 

480 LET a=VAL a$(rn TO rn) 

490 BEEP ax*.10,10 

500 LET co=co+1: IF co=26 THEN LET co=1 

510 LET k$=INKEYS$ 

520 IF k$="1" THEN GO SUB 560: GO TO 390 
530 IF k$=-"2" THEN GO SUB 780: GO TO 390 
540 IF k$="3" THEN GO SUB 1100: GO TO 390 
550 GO TO 460 

555 REM 

560 REM AsRSSSiS ISSN E lOlRSjSldlOjSlSlOlOlOIOIOK 

570 REM ** INTRODUCIR TEXTO x*xx 

580 REM desdaSRRlSNRSlOSlSjSOlSlOlOlOlOIOJOK 

585 REM 

590 CLS 

600 POKE 23658,8 

610 INPUT "Introduce texto= ";a$ 

620 FOR f=1 TO LEN a$ 

630 LET b$=a$(f TO f) 

640 LET n=CODE b$-64 

650 PRINT b$; 

686860 IF. EY=%*'"" TREN: POR p=1 TO. 15: NEXT p: ¡NEXT £ 
670 LET b$=c$(n) 

680 FOR c=1 TO 6 

690 LET b=VAL b$(c TO c) 

700 BEEP b*.10,10 

710 NEXT e 

720 NEXT £ 

730 PRINT $0;"YA ESTA, QUIERES OTRO TEXTO(S/N)?" 
740 LET k$=INKEY$ 

750 IF k$="S" THEN GO TO 560 

760 IF k$<>"S" AND k$<>"" THEN RETURN 

770 GO TO 740 

775 REM 

780 REM AddaSSSS ESSE ISSSTE O lSlSlOIOlSlOJOK 

790 REM ** INTRODUCIR CLAVES x*x* 

800 REM AaRaRSSSlSlOSS SOS jdlOlOjoldlOJOJokk 

805 REM 

810 CLS 

820 PRINT " Introduce las claves con espa-cios entre letra y letra y,el 
olo *+* entre palabra y pa -labra y al final del texto pon un espacio." 
830 PRINT 
840 LET y=86 

850 LET x=0 

860 LET c=65 

870 FOR f=1 TO 26 

880 PRINT. AT. 1,1600 e” :=."; 

890 LET b$=c$(f) 

900 FOR i=1 TO 6 

910 IF b$(i TO i)="1" THEN PRINT ".”; 

920 IF b$(i TO i)="3" THEN: PRINT "-"; 

930 NEXT i 

940 LET c=c+1 

950 IF f-=16 THEN LET y=5: LET x=x+15: PRINT AT y,x 
960 LET y=y+1 

970 NEXT f 

980 PRINT AT y,x;". Lo...” 


990 


PRINT ATA LS 


simb 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1095 
1100 
1110 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1255 
1260 
1270 
1280 
1285 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


: RETURN 


1390 


/ 1400 


INPUT "Introduce las claves ";a$ 
CLS 
LET s$="" 
FOR f=1 TO LEN as$ 
LET s$=s$+a$(f TO f) 
IF a$(£ TO f)=" " OR a$(f TO f)="+" THEN GO SUB 1260: LET s$="" 
NEXT f 
PRINT +*0;" Pulsa una tecla para el menu. " 


IF INKEY$="" THEN GO TO 1080 
RETURN 

REM 

REM SSSS SOS SSSSSSJSlSlSIOJOJOK 


REM **x* TEST DE TECLADO **x 


REM ARSS OSOS S SIS” lSlSlSlOlOJOJOK 

REM 

CLS ; 

PRINT " Pulsa la tecla *g” para pro- ducir los sonidos" 
FOR f=1 TO 100 

NEXT f 

PRINT ? FLASH 1;" PULSA UNA TECLA PARA COMENZAR " 


IF INKEY$="" THEN GO TO 1180 

CLS 

LET co=0 
IF INKEY$="g" OR INKEY$="G" THEN PRINT "-";: BEEP .30,10 
IF INKEY$="h" OR INKEY$="H" THEN PRINT ".";: BEEP .10,10 
IF INKEY3=" " THEN PRINT " “;: FOR f=1 TO 20: NEXT f 
IF INKEY$=CHR$ 13 THEN RETURN 

GO TO 1210 

REM 

REM RSSSSS SOS ISSO lSSIOO ISO IOIOIOJOK 

REM *xx** busca claves *x*xx*x*xxk 

REM ASSS MS OSOS ISOIS OSO lSIOIOIOIOJO Ok 


REM 
LET w$="" 
FOR c=1 TO LEN s$-1 
IF s$(c TO c)="-" THEN LET w$=w$+"3" 
IF s$(c TO c)="." THEN LET w$=w$+"1" 
IF s$(c TO c)="+" THEN PRINT " ";: RETURN 
NEXT c 
LET a$="000000" 


LET w$=w$+g$( TO 7-LEN s$) 
FOR c=1 TO 28 
IF w$=c$(c) THEN PRINT CHR$ (64+c);: IF a$(f TO f)="+" THEN PRINT " ' 


NEXT e 
RETURN A 


Métodos 
predefinidos 
de desarrollo 


ARECE útil considerar 
a continuación algún 
método general pre- 
definido de análisis, 
desarrollo e imple- 
mentación de aplica- 
ciones informáticas. 

Entre los métodos 
actualmente vigentes de conducción de 
proyectos informáticos, uno de los más 
utilizados es el MERISE, concebido por un 
grupo de empresas consultoras y de des- 
arrollo de software francesas bajo los 
auspicios del Ministerio de Industria y de 
la «Misión para la Informática» de aquel 
país. 

Por supuesto, la mayoría de las gran- 
des compañías fabricantes de ordena- 
dores utilizan habitualmente sus propios 
sistemas de desarrollo o metodologías 
externas adoptadas como estándar, 
pero entendemos que entre las metodo- 
logías desarrolladas por grupos indepen- 
dientes con finalidad de servir de están- 
dar, una de las más generales y de las 
más utilizadas hoy en día (y cada día 
más, según parece) es MERISE. 


Antes de entrar a definir el método en 
sus detalles parece útil hacer algunas re- 
flexiones sobre la importancia de utilizar 
algún método predefinido en el desarro- 
llo de las aplicaciones informáticas, en 
una organización cualquiera. 

En efecto, hoy en día se estudian cada 
vez con más detalle las inversiones reali- 
zadas en el área de la informática. En la 
actualidad pocos empresarios hay que 
sigan considerando que con la mera 
compra de un ordenador van a resolver 
ningún problema en la empresa y que, 
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por tanto, dicha compra es una inversión 
grande, pero útil. Por el contrario, se con- 
sidera que la implantación de un sistema 
informático (hardware, más software) 
puede suponer cambios de modo de tra- 
bajo, modificación de rutinas (y de men- 
talidades en ocasiones) y puede tener 
un enorme efecto (para bien o para mal) 
en su organización: cada día más se con- 
sidera que un sistema informático más 
que un programa concreto de ordena- 
dor es todo un modo de razonamiento, 
una cierta «cultura», un saber-hacer de la 
empresa e, incluso a veces, refleja un es- 
tilo gerencial y un estilo de organización. 
Lo que nadie duda es que más que pro- 
blemas técnicos, normalmente, la im- 
plantación de un sistema informático 
suele comportar problemas humanos y 
de organización que deben ser aborda- 
dos de un modo global. 

Por otro lado, la importancia en pese- 
tas de cualquier decisión tomada en 
este área suele ser grande por lo que ha 
de ser meditada y cimentada en estu- 
dios consistentes y completos. En efecto, 
se puede calcular, por ejemplo, que la 
aplicación de facturación de una gran 
empresa comercial que tenga una cifra 
de negocios de algunos miles de millo- 
nes de pesetas o el control de produc- 
ción de una factoría de 3.000 personas 
puede suponer una inversión de unos 60 
millones de pesetas (estimando unas 
80.000 líneas de programación y un Ccos- 
te de unas 750 pesetas/linea). 

Unos costes de esta envergadura (se 
ha calculado que, en una empresa bien 
dirigida, con una distribución de costes 
normal, el presupuesto informático supo- 
ne un 2 por 100 del volumen de nego- 
cio total) exige, desde luego, una estruc- 
tura de control y una planificación ade- 
cuadas. 

Existen otras razones que avalan la 
adopción de una tecnología concreta 
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(un método) para el desarrollo de las 
aplicaciones informáticas. Por un lado, 
hay que tener en cuenta la movilidad de 
las necesidades informáticas de una or- 
ganización: es muy común que antes de 
que un sistema de proceso de personal, 
de gestión de la producción, etc., haya 
sido puesto a punto, las normas bajo las 
que se trabajaba y con las que se ha 
constituido el sistema, hayan cambiado. 
Normalmente, también, los diferentes 
procesos han sido desarrollados e insta- 
lados por grupos de profesionales distin- 
tos y sólo después de que hayan sido 
probados se decide su integración o su 
interconexión. Incluso, sin que los proce- 
sos o sistemas se comuniquen, hay movi- 
lidad de las personas (que cambian de 
grupo de trabajo o abandonan la orga- 
nización y deben ser sustituidas). De he- 
cho, en cualquier Servicio Informático 
con algunos años dentro de cualquier or- 
ganización, se dedica hasta un 40 por 
100 (y más en ocasiones) de la capa- 
cidad total de trabajo al mantenimiento 
de aplicaciones y sistemas ya en funcio- 
namiento. Es decir, con un buen método 
de concepción y gestión de proyectos 
informáticos hay que conseguir que los 
expertos dediquen su tiempo a cómo re- 
solver los problemas presentados y no 
cómo estudiarlos o cómo documentar las 
soluciones diseñadas. Además, hay que 
ofrecer a toda la organización un lengua- 
je común válido para diferentes grupos 
informáticos (empeñados en tareas di- 
versas dentro de la organización), para 
los grupos de organización y hasta para 
los usuarios interesados. 

Es importante distinguir también el mé- 
todo de las «herramientas» utilizadas en 
su implementación. En efecto, última- 
mente se han desarrollado enormemen- 
te diversas «herramientas informáticas» 
que ayudan enormemente en el desarro- 


llo de procesos: existen lenguajes evolu- 
cionados muy cómodos de ser usados 
(verdaderos metalenguajes) y lenguajes 
de «generación de aplicaciones» (nor- 
malmente se alude a este tipo de len- 
guajes como de cuarta generación); 
otros lenguajes ofrecen un diccionario 
de datos, con lo que los sistemas se cons- 
truyen sobre este diccionario y se consi- 
gue gran coherencia en los datos y eli- 
minación de las redundancias; se comer- 
cializan también «cajas de herramientas» 
para la ayuda a la concepción de apli- 
caciones, etcétera. 

Con el auxilio de estas «herramientas» 
se ha constatado que se puede aumen- 
tar de tres a cinco veces la producción 
dada de un grupo (medida en volumen 
de programas o líneas de programa- 
ción/año escritas). 

Sin embargo, el concepto de «método 
de desarrollo» es más general y se refie- 
re a la concepción y diseño del sistema 
y a las técnicas de control de su imple- 
mentación, independientemente de que 
luego en la producción propiamente di- 
cha se utilicen unas u otras «herramien- 
tas». 

Se han desarrollado numerosos méto- 
dos de ayuda al diseño, pero la mayoría 
se refieren a la formalización de aspec- 
tos concretos o a la resolución de proble- 
mas particulares: métodos de concep- 
ción y diseño de bases de datos, méto- 
dos de gestión del proyecto informático, 
métodos de programación estructurada, 
métodos de análisis modular de sistemas: 
el método MERISE, por el contrario, pre- 
tende ser un método general que sirva 
de referencia a todos los elementos invo- 
lucrados en la tarea del desarrollo del 
sistema informático y como «cuerpo me- 
todológico» completo y coherente para 
la armonización de todas las actividades 
a desarrollar. 


Instrucciones 
en bucle 
(continuación) 


EAMOS cómo se cons- 
truye en PASCAL la 
instrucción de bucle 
que permite ejecutar 
una instrucción cierto 
número de veces 
(por ejemplo, 20): 


for iz=1 to 20 do instrucción; 


donde la variable de control del bucle (1 
en nuestro ejemplo) tiene que tener tipo 
entero. 

Al revés que en BASIC, donde se preci- 
san tres instrucciones, en PASCAL basta 
con una, cuya traducción literal es la mis- 
ma: «Para i¡= 1 hasta 20, ejecutar la ins- 
trucción y pasar al siguiente valor de i». 
Su organigrama es, naturalmente, el mis- 
mo que el de la estructura BASIC corres- 
pondiente. 

En BASIC, el hecho de que esta forma 
de instrucción de bucle se divida en tres 
partes (inicio del bucle, instrucción a eje- 
cutar y fin del bucle) permite ampliarla 
con facilidad al caso en que deseamos 
ejecutar varias instrucciones dentro del 


TECNICAS 
DE PROGRAMACIÓN 


mismo bucle. En PASCAL esto no es posi- 
ble, pues no existe marca de fin de bu- 
cle. Sin embargo, disponemos del blo- 
que secuencial de instrucciones, que po- 
demos utilizar como instrucción de bucle 
sin dificultades: 


for iz=1 to 20 do begin 
instrucción-1; 
instrucción-2; 
instrucción-3 
end; 


Tampoco tendremos problema para in- 
cluir dentro de un bucle asignaciones de 
valor, instrucciones condicionales u otros 
bucles, incluso de este mismo tipo. Sin 
embargo, al igual que en BASIC, si se in- 
cluye un bucle FOR dentro de otro bucle 
FOR, es necesario utilizar una variable di- 
ferente para cada uno. 


for iz=1 to 20 do 
for j:z=1 to 4 do 
instrucción; 


Veamos ahora cómo puede utilizarse 
la instrucción FOR para modificar el pro- 
grama PASCAL que ordena tres números 
en orden ascendente, de tal manera que 
pueda aplicarse a la ordenación de un 
número de valores diferente. 


TECNICAS DE PROGRAMACIÓN 


program ordenar; 

var 
nsizinteger; 
x:zboolean; 
y:real; 


begin 


readlin (n); 


x:=true; 


x:=false; 


end 
end; 


end. 


El programa anterior funciona exacta- 
mente igual que la versión BASIC que vi- 
mos al final del capítulo anterior. Tan sólo 
incluye una pequeña mejora: antes de 
pedir datos del terminal escribe un men- 
saje que indica qué es lo que espera el 
programa que le proporcionemos. 

Veamos un ejemplo de su funciona- 
miento: 


RUN 
Número de datos a ordenar: 4 
Deme 4 datos 


En APL tampoco existe estu forma de la 
instrucción de bucle. Ya vimos en el ca- 
pitulo anterior que es posible construir 
nuestro programa de ordenación de da- 
tos sin necesidad de bucle alguno, por lo 
que este tipo de instrucciones no es tan 


a:zarray[1..1001] of real; 
write (“Número de datos a ordenar: ?”); 


writeln (”Deme *,n,”? datos”); 
for iz=1 ton do 
readln (alil); 


while x do begin 


for iz=1 to n-1 do 
if alil>ali+1J then begin 
y:i=ali+1]; 
ali+il:i=alil; 
alil:=y; 
xi=true 


for iz=1 ton do 
writeln (alil) 


necesario en este lenguaje. Sin embar- 
go, es posible simularlas por medio de la 
instrucción de transferencia condicional, 
como veremos más adelante. 

La estructura de bucle que ejecuta 
cierto número de veces una instrucción 
o grupo de instrucciones determinado 
presenta ciertas variantes, tanto en BASIC 
como en PASCAL. En la forma que hemos 
visto hasta ahora, la variable de control 
de bucle adopta inicialmente el valor 1 
y aumenta una unidad por cada vuelta 
del bucle. En el caso más general posi- 
ble, en el primero de estos lenguajes es 
posible modificar el valor inicial y el in- 
cremento, haciéndolos tomar cualquier 
valor. Para ello se utiliza la siguiente for- 
ma de la instrucción FOR: 


10 FOR I=P TO F BY D 
20 instrucción 
30 NEXT 1 


donde P es el valor de partida que debe 
asignarse a la variable de control del bu- 


cle (| en este caso), F es el valor final que 
debe adoptar | y D es el incremento que 
tendrá que sumársele al valor de | al final 
de cada vuelta del bucle. 

El organigrama de esta forma de la ins- 
trucción de bucle es el siguiente: 


Veamos un ejemplo concreto: 


10 FOR I=3 TO 11 BY 2 
20 instrucción 
30 NEXT 1 


donde |toma, sucesivamente, los valores 
SO 7 IVY 

No hay nada que impida que el incre- 
mento sea negativo, lo que haría que los 
valores de la variable de control fueran 
decrecientes. Por ejemplo: 


10 FOR I=9 TO 1 BY -1 
20 instrucción 
30 NEXT 1 


que ejecuta la instrucción nueve veces, 
para | =9, 8, 7,6, 5, 4, 3, 2, 1. 

En PASCAL, también es posible cambiar 
el valor inicial del bucle, haciéndolo dis- 
tinto de 1. Sin embargo, no se puede 
cambiar el valor del incremento. Lo que 
sí se puede es conseguir que los valores 
que toma sucesivamente la variable de 
control del bucle sean decrecientes, 
pero siempre han de ser consecutivos. 

Veamos un ejemplo de un bucle PAS- 
CAL cuya variable toma valores decre- 
cientes 


donde la variable de control toma los va- 
loresi=10,9,8,7,6,5,4,3 y 2. 


Tanto el punto de partida y el final del 
bucle (en BASIC y PASCAL) como el incre- 
mento (sólo en BASIC) pueden sustituirse 
por variables o por expresiones. Ya he- 
mos visto un ejemplo de esto en el pro- 
grama de ordenación incluido en este 
capítulo y el anterior. 

En PASCAL existe aún una tercera forma 
de la instrucción de bucle, que normal- 
mente no se presenta en BASIC y que se 
llama «estructura REPEAT». Es muy pareci- 
da a la estructura WHILE, pero se diferen- 
cia de ella en que la comprobación de 
la condición de salida del bucle se lleva 
a cabo después de que la instrucción 
contenida en el bucle ha sido ejecutada, 
y no antes. Esto significa que dicha ins- 
trucción será ejecutada al menos una 
vez, mientras que en el caso de la estruc- 
tura WHILE es perfectamente posible que 
la instrucción contenida en el bucle no 
se ejecute nunca, si la condición de sa- 
lida del bucle no se cumplía cuando el 
ordenador llegó a éste por primera vez. 

Veamos cómo se programa la estructu- 
ra REPEAT: 


20 TECNICAS DE PROGRAMACIÓN 


REPEAT instrucción UNTIL condición: 


que significa: «Repetir la instrucción has- 
ta que se cumpla la condición»: Su orga- 
nigrama es: 


NO 


En el organigrama se observa clara- 
mente que la instrucción interior del bu- 
cle se ejecuta al menos una vez. 

Al igual que en la estructura WHILE, es 
posible construir estructuras REPEAT que 
se conviertan en bucles permanentes, 
que no tengan salida, por lo que hay que 
tener un cuidado especial al programar- 
las. 


En este caso, y al revés que en la es- 
tructura de WHILE de PASCAL, pero al 
igual que en la estructura WHILE de BASIC, 
se observará que la instrucción interior 
del bucle se encuentra emparedada en- 
tre dos palabras reservadas (REPEAT y UN- 
TIL). Por tanto, si deseamos introducir 
dentro del bucle más de una instrucción, 
no es necesario utilizar un bloque se- 
cuencial delimitado por BEGIN y END, sino 
que basta escribirlas una a continuación 
de la otra, como en el siguiente ejemplo: 


repeat 
instrucción-1; 
instrucción-2; 
instrucción-3 
until condición; 


Naturalmente, si deseamos utilizar a 
pesar de todo la forma normal del blo- 
que secuencial, no hay nada que nos lo 
impida: 


repeat 
begin 
instrucción-1; 
instrucción-2; 
instrucción-3 
end 
until condición; 


LOGO 


. Cómo dibujar 
cualquier 
polígono 


A vimos cómo pode- 
mos dibujar cualquier 
polígono regular. 
Para ello, teníamos 
que definirnos varios 
procedimientos: 


? PARA TRIANGULO ¿LADO 

> REPITE 3 [AV ¿LADO GD 366/33 
> FIN 

? FARA CUADRADO :LADO 


REPITE 4 [AV ¿LADO GD 369/41 


- FIN 


Ahora nos basta con ir dando diferentes 
valores a “NUMLADOS para obtener un: 
triángulo (3), un cuadrado (4), un pentá- 
gono (5)... 

Podemos usar este procedimiento para 
hacer la siguiente figura: 


? PARA POLIGONO :¿LADO :¿NUMLADOS 


+ REPITE :¿NUMLADOS [AV :¿LADO GD 36%M/: NUMLADOS J 


> FIN 
? FARA FENTAGONO “¿LADO 
+ REFITE S [AV ¿LADO GD 365/51 


> FIN 


Como se puede ver, hemos puesto una 
variable para que puedan ser de cual- 
quier tamaño. 

Si añadimos una variable más, tenemos 
la posibilidad de poder hacer todas es- 
tas figuras con un solo procedimiento. 
Con el valor que guardamos en esta va- 
riable le diremos a la tortuga el número 
de lados que va a tener el polígono que 
queremos dibujar. Para ello, pondremos: 


2 LOGO 


escribiendo: 


? FARA FIGURA 

> 31 99 
POLIGONO 34 3 
POLIGONO 34 4 


POLIGONO 34 5 
Y 


POLIGONO 34 6 


ar € Cuando lo hayas hecho, puedes pro- 
bar este otro procedimiento para dibujar 
otro molinillo en el que se mezclan rec- 
tángulos de dos tamaños. 


? PARA MOLINILLO 


Si queremos que la longitud del lado de > REPITE 9 [RECTANGULO 16 4% GD 20 


todos los polígonos no sea fija añadiría- 


¡ ; RECTANGULO 12) 
mos una variable a este procedimiento: A 


? PARA FIGURA :LADO 
> Gl 99 
> POLIGONO :¿LADO 3 


> POLIGONO ¿LADO 4 


> POLIGONO ¿LADO 5 2. Define un procedimiento que dibu- 
> POLIGONO ¿LADO 6 je un cubo: 


Después de usar el siguiente procedi- 
miento para dibujar el cubo en cualquier 
lugar de la pantalla: 


a Os proponemos 


1. Intenta dibujar el siguiente molinillo 
con la posibilidad de que pueda tener 
distintos tamaños: 


PARA NUEVOCUBO ¿LUGAR 
sL 
PONPOS ¿LUGAR 


Para ejecutarlo, tendrás que dar a la 
variable un valor que sea una posición. 
Por ejemplo, con 


? NUEVOCUBO (60 50) 


la tortuga dibujará el cubo en la parte de 
arriba y a la derecha de la pantalla. 


PASCAL 


O Registros 


OS registros o fichas 
(record en inglés) se 
utilizan en multitud de 
actividades de la 
vida diaria. En un 
banco puede que se 
utilicen para guardar 
el nombre de cada 
cliente y el saldo de sus diferentes cuen- 
tas; en una central lechera, para el nú- 
mero, fecha y destino de los diferentes lo- 
tes de leche; en una biblioteca, para el tí- 
tulo, autor, editorial y estante de cada li- 
bro, etc. 

Como se ve en estos ejemplos, podría- 
mos describir una ficha como un conjun- 
to de datos, no necesariamente del mis- 
mo tipo, que, al tener entre sí alguna cla- 
se de vínculo especial, se agrupan para 
formar una unidad. 

Actualmente, cada vez se utilizan más 
los ordenadores para manejar este tipo 
de cosas. Sin ellos los bancos, por poner 
un ejemplo, serían incapaces de gestio- 
nar la enorme cantidad de cuentas exis- 
tentes de una manera rápida y eficiente. 

Del PASCAL, por ahora, sólo conoce- 
mos el tipo ARRAY para guardar diferen- 
tes cosas en una misma variable, pero to- 
das han de ser del mismo tipo; sin embar- 
go, las fichas pueden tener información 
muy variada: el nombre del titular de una 
cuenta sería un dato de tipo ARRAY OF 
CHAR, mientras que el saldo sería de tipo 


REAL. Como es de suponer, el PASCAL 
también permite manejar fichas. 

Las diferentes partes de un registro se 
denominan CAMPOS, así, las fichas de la 
central lechera tendrían tres campos 
para los tres diferentes datos de que 
constan. En general, para definir el tipo 
de ficha necesario escribiriamos: 


type 
Ficha.t = record 
Campo: Tipo4; 
Campo2: Tipo2; 


end; 


es decir, entre las palabras reservadas 
RECORD y END, y separados por punto y 
coma, se deben escribir los nombres de 
los diferentes campos seguidos de dos 
puntos y del tipo de dato correspondien- 
te. Cuando dos campos o más son del 
mismo tipo, se puede ahorrar escritura 
poniendo sus nombres uno detrás de otro 
separados por comas, tras lo cual ven- 
drían los dos puntos y el tipo. Como su- 
cede en otros casos, es posible definir 
una variable de tipo ficha poniendo a su 
lado directamente la descripción, pero 
siempre es mejor definir antes el tipo. 

Los campos pueden ser de CUALQUIER 
tipo o subrango de tipo que esté previa- 
mente definido. 

Supongamos que queremos guardar 
fechas en variables de tipo registro. Estas 
tendrían tres campos: los de día y año, 
que serían números enteros, y el mes, 
que sería de tipo Mes.!t: 


PASCAL 


type 


t = record 
DiaMes, 
Anyo : integer; 
Mes : Mes_t 
end; 


Fecha_ 


var 
FechaDeHoy, 


Nacimiento : Fecha_t; 


Como sucedía en las variables de tipo 
ARRAY, la única operación posible con 
todos los elementos de un registro a la vez 
es la asignación: 


Nacimiento := FechaDeHoy; 


Esto copiaría los campos de FechaDe- 
Hoy, uno por uno, en los de Nacimiento. 
Para hacer referencia a un campo en 
concreto de un registro, se escribe, en 
primer lugar, el nombre del registro segui- 
do de un punto y del nombre del campo. 


writeln (FechaDeHoy. DiaMes + 1); 


Como el campo DiaMes es de tipo en- 
tero, FechaDeHoy.DiaMes se puede utili- 
zar exactamente igual que cualquier va- 
riable entera. Por tanto, la parte de ins- 
trucciones del programa cuyos datos he- 
mos descrito antes podría ser: 


begin 
FechaDeHoy.DiaMes:= 10; 
FechaDeHoy.Mes := Junio; 
FechaDeHoy.Anyo := 1987 
end. 


La estructura WITH 


Está claro que resulta muy incómodo 
tener que escribir el nombre del registro 
cada vez que se utiliza un campo, pero 
es inevitable para no confundir los cam- 
pos de dos registros del mismo tipo. Si en 
una parte del programa sólo se hiciera 
referencia a un registro en concreto, se- 


Mes_ t= (Enero,Febrero, Marzo, Abril,Mayo, Junio, Julio, Agosto, 
Septiembre, Octubre, Novieabre, Diciembre); 


ía bueno poder decirle al compilador 
algo como: «bueno, en toda esta zona 
sólo voy a trabajar con el registro Tal, por 
lo que discúlpame de poner su nombre 
cada vez». Esto se puede hacer de la si- 
guiente manera: 

Se escriben, en primer lugar, las pala- 
bras reservadas WITH y DO con el nombre 
del registro entre medias, y detrás la 
instrucción en la que se va a omitir su 
nombre. Si fueran varias, se enmarcan 
por delante y detrás con las palabras re- 
servadas BEGIN y END (dicho de otra ma- 
nera: la instrucción puede ser estructura- 
da y, por tanto, podemos poner una se- 
cuencia): 


with FechaDeHoy do 


begin 
DiaMes:= 10; 
Mes := Junio; 
Anyo := 1987 
end; 


La traducción del inglés sería: 
«Con FechaDeHoy haz...» 


En la mayoría de los compiladores la 
estructura WITH no sólo hace los progra- 
mas más cortos y claros, sino que, ade- 
más, permite hacerlos más rápidos. 

El campo de un registro puede ser de 
cualquier tipo, incluyendo, por supuesto, 
otros tipos de registro. Vamos a ver cómo 
podria empezar un programa que mane- 
jara las fichas de la central lechera: 


program Lechero; 


(Enero, Febrero,Marzo, Abril,Mayo,Junio,Julio, Agosto, 
Septiembre, Octubre, Noviembre, Diciembre); 


Fecha_t = record 
DiaMes,Anyo : integer; 
Mes : Mes_t 
end; 


Provincia_t = array [1..11) of char; 


Ficha_t = record 
Lote : integer; 
FechaLote: Fecha_t; 
Destino : Provincia_t 
end; 


var 
LoteDeHoy: Ficha_t; 


with LoteDeHoy do  (* "Com LoteDeHoy haz:" *) 


begin 
" Lote := 1234; 


(kx FechaLlote es un registro con tres campos: *) 
FechaLote.DiaMus := 10; 


Fechal ote. Mes 
FechaLote.Anyo 


2= Junio; 
¿:= 1987; 


Destino := *Guadalajara” 


Si no se utilizase WITH, habría que poner 
LoteDeHoy.FechaLote, para referirse a la 
fecha, y como ésta a su vez es un regis- 
tro, habría que escribir LoteDeHoy.Fecha- 
Lote.Mes para el mes en concreto. Sin 
embargo, se podría poner otro WITH para 
FechaLote: 


with LoteDeHoy do 
begin 
Lote := 1234; 


with FechaLote do 
begin 

DiaMes := 10; 

Mes := Junio; 


Anyo := 1987 
end; 


Destino := Guadalajara" 
end; 


o, de manera más clara: 


with LoteDeHoy do 
with FechaLote do 

begin 
Lote := 1234; 
DiaMes := 10; 
Mes := Junio; 
Anyo := 1987; 
Destino:= 'Guadalajara' 

end; 


a PASCAL 


Cada bloque WITH es en sí mismo una 
instrucción estructurada; tras «with Lote- 
DeHoy do...», sólo hay, por tanto, una ins- 
trucción (otro WITH), por lo que no se uti- 
liza el par BEGIN/END. 

Se pueden poner unos bloques WITH 
dentro de otros siempre que no haya 
coincidencias entre nombres de campos 
de los diferentes registros, pues entonces 
el compilador no sabría a qué atenerse 
(aunque algunos lo toleran y suponen, 
por ejemplo, que en esos casos el cam- 
po es el del registro del primer WITH); la 
mayoría de los compiladores tienen un 
cierto límite para el número de bloques 
WITH que se pueden anidar unos dentro 
de otros. 

Para simplificar estos casos de bloques 
WITH anidados, toda estructura del tipo: 


with R4 do 
with R2 do 


with Rn do TalCosa; 


se puede expresar, opcionalmente, po- 
niendo: 


with R4, R2,...Rn do TalCosa; 


por ello, podríamos escribir: 
with LoteDeHoy, FechaLote do 


begin 
Lote := 1234; 
DiaMes := 10; 
Mes := Junio; 
Anyo := 1987; 
Destino:= “Guadalajara” 
end; 


Cuando el PASCAL encuentra una es- 
tructura WITH, toma nota de la porción de 
memoria en que se encuentra el registro, 
y es esa anotación la que utiliza para los 
campos. Por ello, en una situación como: 
lu 3 
with Tabla (1) do 

for |: =4 to 10 do 


en que Tabla fuese un ARRAY OF FICHA.T, 
siempre se mostraría el número de lote 
de la ficha 3, que es la que aparecia jun- 


to a WITH al llegar ahi. Para presentar los 
diferentes lotes lo correcto seria: 


for 1:=4 to 10 do 
with Tabla (1) do 
writeln (Lote); 


para que cada vez que se pase por WITH 
la ficha sea la adecuada. 
Veamos el ejemplo siguiente: 


var 
A : integer; 
B,C : record 
A: char; 
B: boolean 
end; 


Esta definición de variables, aunque 
pueda parecer errónea al utilizarse iden- 
tificadores iguales para cometidos dife- 
rentes, es aceptable, pues siempre se le 
puede indicar de manera clara al com- 
pilador a qué nos estamos refiriendo: 


A := 3; (" el entero *) 

B.A :="2*; (" el carácter *) 

B := C; ( el registro ”) 

B.B := true; (* el campo boolean ”*) 


por otra parte, dentro de un bloque WITH, 
al encontrarse un identificador se busca 
primero entre los campos, por lo que no 
hay duda (ni posibilidad de utilizar las va- 
riables homónimas): 


with B do 
begin 
A := 'Z'; (' el carácter *) 
B := true (* el campo boolean *) 
end; 


Aunque en el PASCAL estándar dentro 
de ese bloque WITH se permite hacer re- 
ferencia a «a» y «b» también como «b.a» 
y «b.b», con la mayoría de los compila- 
dores existentes esto no es posible, debi- 
do a cómo funcionan internamente: al 
encontrarse el identificador «a», por 
ejemplo, se mira a ver si corresponde a 
alguno de los campos y como ése es el 
caso, no se mira más, por lo que al en- 
contrarse el punto se produce un error. 


m Declaración 
de fichaje 


AS otras operaciones 
de entrada/salida 
que se han realizado 
hasta el momento 
han sido efectuadas 
a través del teclado y 
de la pantalla. Pero 
existen otros métodos 
de almacenamiento y grabación de da- 
tos, como son discos, cintas, listados de 
impresoras, etc. 

Un fichero es un conjunto de datos, con 
determinada estructura lógica (regis- 
tros). En una instalación puede haber un 
fichero de personal, con los datos de 
cada empleado: o un fichero de control 
de almacén, conteniendo el stock de 
cada artículo. Estos ficheros pueden en- 
contrarse en distintos dispositivos periféri- 
Cos. 

La declaración de los ficheros que se 
van a utilizar en un programa se realiza 
en la ENVIRONMENT DIVISION. Una de las 
secciones de esta división es la INPUT- 
OUTPUT SECTION, que debe comenzar en 
el margen A y se divide en dos párrafos, 
siendo FILE-CONTROL el que más interesa 
en este apartado. Dicho párrafo debe 
comenzar en el margen A, mientras que 
las cláusulas que contiene lo hacen en 
el margen B. 

Por cada fichero que se utilice en el 
programa debe emplearse una cláusula 
SELECT. 


SELECT nombre-fichero ASSIGN TO periférico 
ORGANIZATION IS LINE SEQUENTIAL 


OTROS LENGUAJES 


Hay que aclarar que esta cláusula es 
mucho más compleja de lo que se pre- 
senta aquí, pero sólo se explicarán los fi- 
cheros secuenciales (tienen los registros 
grabados uno a continuación de otro). 


Es necesario, de todas formas, antes de 
compilar un programa, pedir información 
acerca de la SELECT del ordenador con 
el que se va a trabajar. 


En el campo nombre-+fichero se pondrá 
un nombre creado por el programador 
para distinguir ese archivo, se denomina 
nombre lógico. 

Periférico se sustituye por el nombre 
con el que el compilador conoce al dis- 
positivo en que se encuentra almacena- 
do el fichero. 


ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT PERSONAL ASSIGN TO DISK 
ORGANIZATION IS LINE SEQUENTIAL. 


SELECT IMPRESO ASSIGN TO PRINTER. 


El formato y estructura de los ficheros 
seleccionados se describe en la DATA DI- 
VISION, es una sección especial conoci- 
da como FILE SECTION. 

Comienza en el margen A y su formato 
es: 


FD nombre-fichero STANDARD 


LABEL RECORDS OMITTED 


VALUE OF FILE-ID «nombre físico» 


a 
Y OTROS LENGUAJES 


En nombre-+fichero debe ponerse el mis- 
mo nombre que se indicó en la SELECT. 

Para ficheros asignados a discos se 
debe emplear la forma LABEL RECORD 
STANDARD. Además, deben llevar la op- 
ción VALUE, que sirve para relacionar el 
nombre del fichero en el disco y en el 
programa. 

Si el fichero es una impresora, basta 
con poner LABEL RECORDS OMITTED. 

A continuación debe detallarse la es- 
tructura del registro, siguiendo las reglas 
ya explicadas de los números de nivel. 

La DATA correspondiente a la ENVIRON- 
MENT anterior puede ser: 


Instrucciones sobre ficheros 


La primera instrucción a realizar con un 
fichero es abrirlo. 


El modo INPUT se utiliza con ficheros 
que sólo van a ser leídos. OUTPUT se em- 
plea para ficheros que van a ser creados 
en el programa, mientras que l|-0 se usa- 
rá para los ficheros de los que se va a 
leer y en los que se va a escribir. 

Todo fichero que se abre debe cerrar- 
se: 


Para grabar en un fichero en disco se 
usa un WRITE: 


Nombre-registro debe ser el declarado 
en la FD. Los registros se graban uno a 
continuación de otro. 


IDENTIFICATION DIVISION. 
PROGRAM-1D. EJ-PERSONAL. 


ENVIRONMENT DIVISION. 
INFUT-OUTPUT SECTION. 


FILE-CONTROL. 


SELECT PERSONAL ASSIGN TO DISK 


ORGANIZATION IS LINE SEQUENTIAL. 


DATA DIVISION. 


FILE SECTION. 


FD PERSONAL LABEL FECORD STANDARD 


VALUE COR “FILE=SID "PERSO:¿DAT", 


01 REG-FERSONAL. 


OS NOM-AFE EIC. Xi(3D) 0 
05 DIRECCION PIE MLTO) 
OS TELEFONO Fi Cid 


WOREING-STORAGE SECTION. 


Ol FIN PIE"Xs 


PROCEDURE DIVISION. 


INICIO. 
OFEN OUTPUT FERSONAL. 
DISFLAY “¿DESEA FINALIZAR”? 
ACCEFT FIN. 


PERFORM GRABAR-FICHERO UNTIL FIN 


DISFLAY *FICHERO CREADO”. 
CLOSE FERSONAL. 


(SIN? 


J 
Y 


FIN-FROGRAMA. 
STOF RUN. 


GRABAR-F ICHERO. 
DISFLAY *TECLEE NOMERE Y APELLIDOS”. 
ACCEFT NOM-APE. 
DISPLAY *TECLEE DIRECCION”. 
ACCEFT DIRECCION. 
DISPLAY *TECLEE TELEFONO”. 
ACCEPT TELEFONO. 
WRITE REG-PERSONAL. 
DISPLAY *¿DESEA FINALIZAR? (S/N)7”. 
ACCEFT FIN. 


y EDICIONES v SIGLO y CULTURAL y 


